www.gusucode.com > 6KBBS ASP版 V7.1 > 6KBBS ASP版 V7.1\code\bbs\Left.asp
<!--#include file="conn.asp"-->
<%
dim Cssstyleid,allthebbs,lguserid,lgtype
allthebbs=application(prefix&"allthebbs")
if allthebbs="" then
dim rs1,bdinfo
set rs=conn.execute("select * from bdinfo where followid=0 order by orders desc,id")
do while not rs.eof
allthebbs=allthebbs&"<div class=leftbigtype id=bigtype"&rs("id")&">"&rs("bdinfo")&"</div>"
allthebbs=allthebbs&"<div id=bigtype"&rs("id")&"menu>"
set rs1=conn.execute("select * from bdinfo where followid="&rs("id")&" order by orders desc,id")
do while not rs1.eof
bdinfo=rs1("bdinfo")
bdinfo=split(bdinfo,"|")
allthebbs=allthebbs&"<div class=leftsmalltype><a href=Topiclist.asp?bd="&rs1("id")&">"&bdinfo(0)&"</a></div>"
rs1.movenext
Loop
rs1.Close
set rs1=nothing
allthebbs=allthebbs&"</div>"
response.write"</div>"
rs.movenext
Loop
rs.Close
set rs=nothing
application(prefix&"allthebbs")=allthebbs
end if
'application(prefix&"allthebbs")=""
Cssstyleid=request.cookies(prefix&"1")("styleid")
lguserid=session(prefix&"lguserid")
lgtype=request.Cookies(prefix)("lgtype")
%><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="skin/<%=Cssstyleid%>/global.css">
<style>
.static{font-weight:bold;}
</style>
<base target="main">
</head>
<body class=leftbody>
<div class=leftbbs>
<div class=leftbbstitle>论坛栏目</div>
<div class=leftbbsbody><%=allthebbs%></div>
</div>
<div class=userpan>
<div class=userpantitle>用户助手</div>
<div class=userpanbody>
<%if isnull(lguserid) or lguserid="" then%>
<div class=userpanbodyitem><a href=login.asp>论坛登陆</a></div>
<div class=userpanbodyitem><a href=reg.asp>注册用户</a></div>
<%else%>
<div class=userpanbodyitem><span class=onlinestatic><a target=_self href=cookies.asp?action=lgtype&lgtype=1 <%if lgtype=1 then%>class=static<%end if%>>上线</a>┆<a target=_self href=cookies.asp?action=lgtype&lgtype=2 <%if lgtype=2 then%>class=static<%end if%>>隐身</a></div>
<div class=userpanbodyitem><a href=sms.asp>留言板</a></div>
<div class=userpanbodyitem><a href=userinfo.asp?userid=<%=lguserid%>>我的页面</a></div>
<div class=userpanbodyitem><a href=Otherlist.asp?action=mytop>发表的帖子</a></div>
<div class=userpanbodyitem><a href=Otherlist.asp?action=withmetop>参与的帖子</a></div>
<div class=userpanbodyitem><a href=usersetup.asp?action=myinfo>修改资料</a></div>
<div class=userpanbodyitem><a href=usersetup.asp?action=mypwd>修改密码</a></div>
<%if int(session(prefix&"usertype"))=5 then%><div class=userpanbodyitem><a href=admin target=_blank>论坛管理</a></div><%end if%>
<div class=userpanbodyitem><a href=login.asp?action=exit>安全退出</a></div>
<%end if%>
</div>
</div>
</body>